10 POKE808,225:POKE53280,0:POKE53281,0
20 PRINT"[158][147][205][201][195][210][207]-[204][207][195][203] [214]1.2 BY [193]. [196]ENZL 1988"
30 PRINT"[194]ITTE [195]ODE EINGEBEN (5 [212]ASTEN) : ";
40 POKE204,0:FOR P=1TO5
50 GET CODE$:IF CODE$="" THEN 50
60 POKE956+P,ASC(CODE$):PRINT"*";:NEXTP
70 POKE204,1:PRINT" ":GOSUB 1000
80 PRINT:PRINT"[205]ICRO-[204]OCK INSTALLIERT ..."
90 PRINT"[193]KTIVIEREN: <[195][194][205]> + <[210][197][211][212][207][210][197]>"
100 POKE808,237:NEW
1000 POKE53280,2:RESTORE:FOR I=828 TO 956:READ X:POKE I,X:NEXT I
1010 POKE792,60:POKE793,3:POKE178,0:POKE 179,4:POKE53280,0:RETURN
10000 DATA 72,138,72,152,72,32,94,3,169,127,141,13,221,32,188,246,32
10002 DATA 225,255,32,21,253,32,163,253,32,24,229,32,178,3,108,2,160
10004 DATA 173,141,2,201,2,240,1,96,206,32,208,169,0,141,14,220,133
10006 DATA 198,169,127,141,138,2,169,177,141,24,3,169,3,141,25,3,162
10008 DATA 0,134,2,32,159,255,32,228,255,240,248,166,2,221,189,3,208
10010 DATA 237,230,2,165,2,201,5,208,233,169,1,141,14,220,169,0,141
10012 DATA 138,2,32,178,3,238,32,208,104,104,104,168,104,170,104,64,169
10014 DATA 60,141,24,3,169,3,141,25,3,96